{$CLEO}

0A95: enable_thread_saving

const
  _a = 2@
  _b = 6@
  _c = 14@
end

{$CLEO}



const
  
  _x = 27@
  _y = 25@
  _z = 26@
  _to_1 = 28@
  _result_1 = 7@
  _to_2 = 8@
  _result_2 = 9@
  _to_3 = 16@
  _result_3 = 18@
  _angle = 19@
  _set_1 = 20@
  _set_2 = 21@
  _set_3 = 22@
  _a = 23@
end

// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
thread 'HEX_01'




 
 
while true
    wait 0
    0AF0: 1@ = "CLEO\GFX_MENU\TOLM.INI" "REFRSH3" "GET"                                                                                              
    if 03CA:   object  1@ exists                                                                                      
    then                                                                                                              
        29@ = 407.0                                                                                                   
        for 28@ = 1 to 4 step 1                                                                                       
            03F0: enable_text_draw 0                                                                                  
            if 28@ == 1                                                                                               
            then                                                                                                      
                0349: set_text_draw_font 3                                                                            
                0340: set_text_draw_RGBA 255 255 255 255                                                              
                033F: set_text_draw_letter_size 0.2 0.8                                                               
                060D: draw_text_shadow 1 rgba 0 0 0 150                                                               
                045B: draw_text_2numbers 192.0 29@ GXT 'CRDSX' numbers _to_1 _result_1                                
            end                                                                                                       
            if 28@ == 2                                                                                               
            then                                                                                                      
                0349: set_text_draw_font 3                                                                            
                0340: set_text_draw_RGBA 255 255 255 255                                                              
                033F: set_text_draw_letter_size 0.2 0.8                                                               
                060D: draw_text_shadow 1 rgba 0 0 0 150                                                               
                045B: draw_text_2numbers 192.0 29@ GXT 'CRDSY' numbers _to_2 _result_2                                
            end                                                                                                       
            if 28@ == 3                                                                                               
            then                                                                                                      
                0349: set_text_draw_font 3                                                                            
                0340: set_text_draw_RGBA 255 255 255 255                                                              
                033F: set_text_draw_letter_size 0.2 0.8                                                               
                060D: draw_text_shadow 1 rgba 0 0 0 150                                                               
                045B: draw_text_2numbers 192.0 29@ GXT 'CRDSZ' numbers _to_3 _result_3                                
            end                                                                                                       
            if 28@ == 4                                                                                               
            then                                                                                                      
                0349: set_text_draw_font 3                                                                            
                0340: set_text_draw_RGBA 255 255 255 255                                                              
                033F: set_text_draw_letter_size 0.2 0.8                                                               
                060D: draw_text_shadow 1 rgba 0 0 0 150                                                               
                045A: draw_text_1number 192.0 29@ GXT 'CRDSA' number _angle                                           
            end                                                                                                       
            29@ += 10.0                                                                                               
        end
        0AF2: 0@ = get_float_from_ini_file "CLEO\GFX_MENU\OBJECT_CORDS.INI" section "CORDS" key "CORDS_X" 
        0AF2: 3@ = get_float_from_ini_file "CLEO\GFX_MENU\OBJECT_CORDS.INI" section "CORDS" key "CORDS_Y" 
        0AF2: 4@ = get_float_from_ini_file "CLEO\GFX_MENU\OBJECT_CORDS.INI" section "CORDS" key "CORDS_Z" 
        OBJECT.StorePos(1@, _x, _y, _z)                                                                                                       
        0092: _to_1 = float _x to_integer                                                                                                        
        0092: _to_2 = float _y to_integer                                                                                                        
        0092: _to_3 = float _z to_integer                                                                                                        
        0093: _set_1 = integer _to_1 to_float                                                                                                        
        0093: _set_2 = integer _to_2 to_float                                                                                                        
        0093: _set_3 = integer _to_3 to_float                                                                                                        
        0063: _x -= _set_1 // (float)                                                                                                             
        0063: _y -= _set_2 // (float)                                                                                                             
        0063: _z -= _set_3 // (float)                                                                                                             
        _x *= 10000.0                                                                                                                                                                                                                                                         
        _y *= 10000.0                                                                                                                         
        _z *= 10000.0                                                                                                                         
        0092: _result_1 = float _x to_integer                                                                                                       
        0092: _result_2 = float _y to_integer                                                                                                       
        0092: _result_3 = float _z to_integer                                                                                                       
        if 0 > _result_1                                                                                                                                    
        then _result_1 *= -1                                                                                                                             
            else if 0 > _result_2                                                                                                                            
            then _result_2 *= -1                                                                                                                             
                else if 0 > _result_3                                                                                                                             
                then _result_3 *= -1                                                                                                                             
                end
            end
        end
        0400: store_coords_to _a _b _c from_object 1@ with_offset 0.0 0.0 1.0 
        024F: create_corona_with_radius 0.1 type 2 lensflares 1 with_color 252 252 0 at _a _b _c                
        _angle = OBJECT.Angle(1@)                                                                                                                 
        0092: _angle = float _angle to_integer                    
        0494: get_joystick 0 direction_offset_to 10@ 11@ 12@ 13@ 
        if 10@ > 0 
        then 0@ += 0.1
            0AF3: write_float 0@ to_ini_file "CLEO\GFX_MENU\OBJECT_CORDS.INI" section "CORDS" key "CORDS_X" 
            if 03CA:   object 1@ exists 
            then
                Object.PutAt(1@, 0@, 3@, 4@)
                Object.Angle(1@) = 5@
            end
        end
        if 0 > 10@  
        then 0@ -= 0.1
            0AF3: write_float 0@ to_ini_file "CLEO\GFX_MENU\OBJECT_CORDS.INI" section "CORDS" key "CORDS_X" 
            if 03CA:   object 1@ exists 
            then
                Object.PutAt(1@, 0@, 3@, 4@)
                Object.Angle(1@) = 5@
            end
        end
        if 11@ > 0  
        then 3@ += 0.1
            0AF3: write_float 3@ to_ini_file "CLEO\GFX_MENU\OBJECT_CORDS.INI" section "CORDS" key "CORDS_Y" 
            if 03CA:   object 1@ exists 
            then
                Object.PutAt(1@, 0@, 3@, 4@)
                Object.Angle(1@) = 5@
            end
        end
        if 0 > 11@ 
        then 3@ -= 0.1
            0AF3: write_float 3@ to_ini_file "CLEO\GFX_MENU\OBJECT_CORDS.INI" section "CORDS" key "CORDS_Y" 
            if 03CA:   object 1@ exists 
            then
                Object.PutAt(1@, 0@, 3@, 4@)
                Object.Angle(1@) = 5@
            end
        end
        if 00E1:   player 0 pressed_key 6 
        then 4@ += 0.1
            0AF3: write_float 4@ to_ini_file "CLEO\GFX_MENU\OBJECT_CORDS.INI" section "CORDS" key "CORDS_Z" 
            if 03CA:   object 1@ exists 
            then
                Object.PutAt(1@, 0@, 3@, 4@)
                Object.Angle(1@) = 5@
            end
        end
        if 00E1:   player 0 pressed_key 7
        then 4@ -= 0.1
            0AF3: write_float 4@ to_ini_file "CLEO\GFX_MENU\OBJECT_CORDS.INI" section "CORDS" key "CORDS_Z" 
            if 03CA:   object 1@ exists 
            then
                Object.PutAt(1@, 0@, 3@, 4@)
                Object.Angle(1@) = 5@
            end
        end
        if 00E1:   player 0 pressed_key 4 
        then 5@ += 0.1 
            if 03CA:   object 1@ exists 
            then
                Object.PutAt(1@, 0@, 3@, 4@)
                Object.Angle(1@) = 5@
            end
        end
        if 00E1:   player 0 pressed_key 5 
        then 5@ -= 0.1 
            if 03CA:   object 1@ exists 
            then
                Object.PutAt(1@, 0@, 3@, 4@)
                Object.Angle(1@) = 5@
            end
        end
    end
end
end_thread 
